home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / misc / fetchrefs11a.lha / FetchRefsPch / GoFetchRefs.edge < prev    next >
Encoding:
Text File  |  1995-02-04  |  681 b   |  35 lines
  1. /*
  2. ** FetchRefs.edge - A script to interface FetchRefs with Edge
  3. **
  4. ** By Jon Rocatis, Wednesday 11-Jan-95 16:06:55
  5. **
  6. */
  7.  
  8. OPTIONS RESULTS
  9. OPTIONS FAILAT 20
  10.  
  11. /* Define a temporary filename to put the reference into */ 
  12. filename = 'T:FetchRefs.temp'
  13.  
  14. position eow
  15. cursor right 1
  16. copy word back resultbuff
  17. searchstr = result
  18.  
  19. if rc==0 then do
  20.   ADDRESS 'FETCHREFS'
  21.   FR_GET FIND searchstr'#?' TO filename FILEREF
  22.   if rc==0 then do
  23.     ADDRESS 'EDGE'
  24.     new
  25.     if rc==0 then do         /* if all is well then talk to it */
  26.       address value result
  27.       open filename
  28.     end  
  29.   
  30.     /* Delete the temp autodoc file */
  31.     ADDRESS COMMAND 'C:Delete >NIL:' filename
  32.   end  
  33. end
  34.  
  35.